home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_icc.ps < prev    next >
Text File  |  2003-01-03  |  3KB  |  105 lines
  1. %    Copyright (C) 2001 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % PostScript portion of ICCBased color space support
  8.  
  9. //userdict /.icc_comp_map_dict
  10.   << 1 /DeviceGray  3 /DeviceRGB  4 /DeviceCMYK >>
  11. put
  12.  
  13. colorspacedict /ICCBased
  14.   {
  15.     % Verify that the source object is an array, that it is at least of length
  16.     % two, and that the second entry is a readable dictionary. If we got this
  17.     % far, we know the top-level object exists and is readable, but it might
  18.     % be a dictionary.
  19.     dup type dup /arraytype ne exch /packedarraytype ne and
  20.       { /setcolorspace /typecheck signalerror }
  21.     if
  22.     dup length 2 lt
  23.       { /setcolorspace /rangecheck signalerror }
  24.     if
  25.     dup 1 get type /dicttype ne
  26.       { /setcolorspace /typecheck signalerror }
  27.     if
  28.     dup 1 get rcheck not
  29.       { /setcolorspace /invalidaccess signalerror }
  30.     if
  31.  
  32.     % Verify that the dictionary defines the key N (number of components) and
  33.     %  entry is provided and has a legitimate value
  34.     dup 1 get /N .knownget
  35.       {
  36.         //.icc_comp_map_dict exch known not
  37.           { 
  38.             % generate the appropriate error
  39.             /setcolorspace 
  40.             1 index 1 get /N type type /integertype ne
  41.               { /typecheck }
  42.               { /rangecheck }
  43.             ifelse
  44.             signalerror
  45.           }
  46.         if
  47.       }
  48.       { /setcolorspace /undefined signalerror }
  49.     ifelse
  50.  
  51.     % Verify DataSrouce and, if it is a string, convert it to a file
  52.     dup 1 get /DataSource .knownget
  53.       {
  54.         dup rcheck not
  55.           { pop /setcolorspace /invalidaccess signalerror }
  56.         if
  57.         type dup /stringtype eq
  58.           {
  59.             pop
  60.             2 array copy
  61.             dup 1
  62.              2 copy get dup length dict copy
  63.              dup /DataSource
  64.               2 copy get /ReusableStreamDecode filter
  65.              put
  66.             put
  67.           }
  68.           {
  69.             /filetype ne
  70.               { /setcolorspace /typecheck signalerror }
  71.             if
  72.           }
  73.         ifelse
  74.       }
  75.       { /setcolorspace /undefined signalerror }
  76.     ifelse
  77.  
  78.     % set the alternate color space to be the current color space
  79.     dup 1 get /Alternate .knownget not
  80.       { dup 1 get /N get //.icc_comp_map_dict exch get }
  81.     if
  82.     setcolorspace
  83.  
  84.     % if CIE spaces are not use, just take the alternate space
  85.     NOCIE
  86.       { pop //null }
  87.       { % check for native support
  88.         /.seticcspace where
  89.           { pop dup 1 get
  90.         % Acrobat Reader silently ignores errors with ICC profiles
  91.         % and uses the alternate color space -- do the same.
  92.         mark exch { .seticcspace } stopped
  93.           { cleartomark pop //null }
  94.           { pop }
  95.         ifelse
  96.       }
  97.           { pop //null }
  98.         ifelse
  99.       }
  100.     ifelse
  101.   }
  102. bind put
  103.  
  104. //userdict /.icc_comp_map_dict undef
  105.